home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / us.arc / CURSOR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-04  |  666 b   |  35 lines
  1. Function cursor:integer;
  2. {This function will read the cursor movement keys and return 1-Cursor left,
  3.  2-Cursor right, 3-cursor up, 4-cursor down, 5-end, 13- return.  Otherwise,
  4.  the character read is returned.}
  5.  
  6. Var
  7.    c,d:char;
  8.    i,j,l:integer;
  9. Begin
  10.  
  11. l:=0;
  12. Repeat until keypressed;
  13. Read(kbd,c);
  14. if (c='q') or (c='Q') then quitsw:=1;
  15. i:=ord(c);
  16. case i of
  17.   27 : begin
  18.          Read(kbd,d);
  19.          j:=ord(d);
  20.          case j of
  21.            75 : l:=1;
  22.            77 : l:=2;
  23.            72 : l:=3;
  24.            80 : l:=4;
  25.            79 : l:=5;
  26.          end;
  27.        end;
  28.   13 : l:=13;
  29. end;
  30.  
  31. if l>0 then cursor:=l
  32. else cursor:=i;
  33.  
  34. end;
  35.